home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / RECOVER LOST FILES.bas < prev    next >
BASIC Source File  |  2012-02-16  |  717b  |  14 lines
  1. 1  DIM F$(40)
  2. 5 D$ =  CHR$(4)
  3. 6  HOME : VTAB (3)
  4. 10  PRINT "IF USING CAT  MAKER YOU FIND SOME FILES MISSING USE THIS PROGRAM"
  5. 20  PRINT : INVERSE : INPUT "IF YOU WANT TO CONTINUE TYPE Y ";A$: NORMAL 
  6. 30  IF A$ < >"Y"  THEN : END 
  7. 40  HOME : VTAB (3): PRINT "YOU MIGHT HAVE TO DO THIS MORE THAN     ONCE. KEEP A RECORD OF THE NUMBERS YOU  TYPE IN. A NEGATIVE NUMBER WILL REVERSE WHAT YOU HAVE DONE    (IT MUST BE THE   SAME VALUE)"
  8. 50  PRINT : PRINT : INPUT "THE NUMBER OF PROGRAMS THAT ARE MISSING   ?";X
  9. 60  PRINT : INPUT "NAME OF FILE TO BE CORRECTED   ?";F$
  10. 100  PRINT D$;"OPEN";F$
  11. 200  PRINT D$;"READ";F$;"    ,R9, B0": INPUT Y
  12. 300 X = X +Y
  13. 400  PRINT D$;"WRITE";F$;"    ,R9,B0 ": PRINT X
  14. 490  PRINT D$;"CLOSE";F$